library(data.table)
library(dplyr)
library(tidyr)
library(readr)
library(stringr)

dir.project <- ("../../../")

fileName <- paste0(dir.project,'calibration_version.txt')
calibration_version <- read_file(fileName) %>% str_replace_all("[\r\n]" , "")

dir.data <- paste0(dir.project,'data/')
dir.generated <- paste0(dir.data,'generated/')
dir.raw <- paste0(dir.data,'raw/')

rnd2 <- function(number){
return(format(round(number,2), nsmall=2))
}
